home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / math / yakusu.bas < prev   
BASIC Source File  |  1995-01-31  |  272b  |  10 lines
  1. 10 CLS
  2. 20 PRINT "ｎの約数を求める                                       解答時にＰＦ１でメニュー"
  3. 30 INPUT "n=",N
  4. 40 FOR A=1 TO N
  5. 50  IF N-INT(N/A)*A<>0 THEN 70
  6. 60  PRINT A;
  7. 70 NEXT A
  8. 80 B$=INKEY$ : IF B$="" THEN 80
  9. 90 IF B$="1" THEN RUN "MENU.BAS" ELSE GOTO 10
  10.